﻿Public Class BewegungsboniTabelleTransporter_1
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.Ladung.Length > 0 Then
            Return 1
        End If
    End Function
End Class
